home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 51 / 051.d81 / ps converter (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  81 lines
  1. 0 ifx=.thenpoke55,.:poke56,128:clr:x=1
  2. 5 ifx=1thenx=2:load"ps.xvert.ml",8,1
  3. 10 gosub60100:clr
  4. 20 close15:open15,8,15:print"[147]":gosub3000
  5. 23 print"[197]nter [208]rint [211]hop filename to convert"
  6. 24 print"([209] [209]uits) ==>                [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  7. 25 gosub60500:f$=b$
  8. 26 iff$="q"orf$="[209]"then2000
  9. 30 d$="n."+f$:d$=d$+",p,w"
  10. 32 print#15,"r0:"+f$+"="+f$:input#15,er
  11. 34 ifer=63then40
  12. 36 print"            [198][201][204][197] [206][207][212] [198][207][213][206][196]!":fora=1to1000:next
  13. 38 print"[145]                                      [145][145][145][145][145]":goto23
  14. 40 open2,8,2,f$:gosub5000:if not ok thenclose2:goto20
  15. 45 open3,8,3,d$:gosub5000:if not ok thenclose3:goto20
  16. 50 get#2,a$,b$:print#3,chr$(asc(a$+chr$(0)))chr$(asc(b$+chr$(0)));
  17. 60 :
  18. 70 forx=0to44:print".";
  19. 80 fory=0to5:get#2,a$
  20. 90 a=asc(a$+chr$(0))
  21. 92 sys32768,a
  22. 94 print#3,chr$(peek(251));
  23. 95 ify<>5thenprint#3,chr$(peek(252));
  24. 96 nexty:nextx:gosub5000:if not ok then20
  25. 98 :
  26. 100 rem  fill in the rest of the rest
  27. 110 forx=1to82:print#3,chr$(0);:next
  28. 120 close2:close3:print
  29. 130 print"         [196]one with conversion."
  30. 140 print"[206]ew filename is n."f$
  31. 160 print"        [208]ress [211][208][193][195][197] to continue":poke198,.
  32. 170 ifpeek(203)<>60then170
  33. 180 goto20
  34. 2000 rem  quit
  35. 2010 print#15,"r0:hello connect=hello connect":input#15,e:ife<>63thenclose15:end
  36. 2020 close15:load"hello connect",8
  37. 2998 rem *** instructions ***
  38. 3000 print"[147]          [208]rint [211]hop [195]onverter"
  39. 3005 print"[208]rint [211]hop [201]mages published in [204]oadstar"
  40. 3010 print"are in the 1525 printer format.  [201]f"
  41. 3020 print"your [208]rint [211]hop [208]rogram does not "
  42. 3030 print"recognize them as they are, this utility"
  43. 3040 print"will convert them to the format required"
  44. 3050 print"by other printers."
  45. 3990 return
  46. 5000 ok=-1:input#15,e,e$,t,s
  47. 5010 ife=0thenreturn
  48. 5015 c$=","
  49. 5020 print"[147][196]isk [197]rror! "e;c$;e$;c$;t;c$;s
  50. 5030 print"        [208]ress [211][208][193][195][197] to continue":ok=0
  51. 5035 gosub6000:ift$<>" "then5035
  52. 5040 return
  53. 6000 poke198,0:wait198,1:gett$:return
  54. 60100 poke53280,14:poke53281,14
  55. 60110 print"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  56. 60120 fora=1to23:print"[221]"spc(38)"[221]";:next
  57. 60130 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
  58. 60140 fora=217to242:pokea,peek(a)or128:next
  59. 60150 print"          [204][207][193][196][211][212][193][210] [208]resents:"
  60. 60160 print"                               "
  61. 60170 print"       [208]rint [211]hop [195]onverter [214]2  "
  62. 60180 print"                                "
  63. 60190 print"          [194]y  [193]lan [199]ardner      "
  64. 60200 print"       [213]pdated [194]y [205]ike [205]aynard  "
  65. 60210 print"                                "
  66. 60220 print"           [195]opyright 1987       "
  67. 60230 print"                                "
  68. 60240 print"                                "
  69. 60250 print"        [208]ress [211][208][193][195][197] to continue"
  70. 60260 ifpeek(203)<>60then60260
  71. 60270 return
  72. 60500 b$="":print"[164]";:poke198,.:fora=1to17
  73. 60510 geta$:ifa$=""then60510
  74. 60520 ifa$=chr$(13)thenprint"[157] ":return
  75. 60530 ifa$=chr$(20)anda>1thenprint"[157][157]  [157][157][164]";:a=a-1:b$=left$(b$,a-1):goto60510
  76. 60540 ifa=17then60510
  77. 60550 ifa$>=" "anda$<="z"then60580
  78. 60560 ifa$>="[193]"anda$<="[218]"then60580
  79. 60570 goto60510
  80. 60580 print"[157]"a$;:poke212,.:print"[164]";:b$=b$+a$:next
  81.